home *** CD-ROM | disk | FTP | other *** search
/ MacWorld: Complete Mac Interactive / Macworld Complete Mac Interactive CD)(1994).iso / The Best of BMUG / Utilities / Text and Speech / Alpha.5.76 / Tcl / SystemCode / tcl.tcl < prev    next >
Encoding:
Text File  |  1994-03-08  |  844 b   |  36 lines  |  [TEXT/ALFA]
  1. #===========================================================================
  2. # Debug a Tcl procedure.
  3. #===========================================================================
  4.  
  5. # Alpha TCL programming mode
  6. proc traceTclProc {} {
  7.     if {[llength [traceFunc status]]>2} {
  8.         traceFunc off
  9.         markMenuItem Tcl traceTclProc off
  10.         dumpTraces
  11.         return
  12.     }
  13.     set func [listpick -p {Func Name:} [lsort [info procs]]]
  14.     if {![string length $func]} return
  15.     traceFunc on $func ""
  16.     catch {markMenuItem Tcl traceTclProc on}
  17. }
  18.  
  19. proc setTclMode {} {
  20.     changeMode "Tcl"
  21.     uplevel #0 {
  22.         set elecLBrace 0
  23.         set elecRBrace 0
  24.         set electricSemi 0
  25.         set wordWrap 0
  26.         set funcExpr {^proc *([+-a-zA-Z0-9]+)}
  27.         set wordBreakPreface {[^a-zA-Z0-9_\$]}
  28.         set wordBreak {(\$)?[a-zA-Z0-9_]+}
  29.         set funcPar 1
  30.         set sortedIsDefault 1
  31.         set prefixString "# "
  32.     }
  33.     insertMenu Tcl
  34. }
  35.  
  36.